home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d963.lha
/
SIOD
/
scm
/
differ.scm
< prev
next >
Wrap
Text File
|
1993-01-02
|
301b
|
13 lines
(define (deriv f h)
(lambda (x)
(/ (- (f (+ h x)) (f x)) h)))
(define (integral f a b dx)
(define (add-dx z) (+ z dx))
(sum f add-dx (+ a (/ dx 2)) b))
(define (sum f next x y)
(if (> x y)
0
(+ (f x) (sum f next (next x) y))))